gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_SpecialDel.asp

    <!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

Dim Action,ID,FilePath
FilePath = ""
Action = request.QueryString("Action")
ID = Request.QueryString("ID")
ComeUrl = Request.ServerVariables("HTTP_REFERER")
IF ID="" Then
	FoundErr = True
	ErrMsg = ErrMsg & "<br><li>参数不足！</li>"
Else
	ID=CLng(ID)
End IF
IF FoundErr<>True Then
	Select Case Action
	Case "Del"
		Call DeleteSpecial(ID)
	Case "Index"
		v = Request.QueryString("v")
		Conn.execute("Update Nt_Special Set ShowFirst="&v&" where ID="&ID)
		Response.Redirect ComeUrl
	Case Else
		FoundErr = True
		ErrMsg = ErrMsg & "<br><li>参数不足！</li>"
	End Select
End IF
IF FoundErr = True Then
	Behind.WriteErrMsg(ErrMsg)
End IF
Set Netout = Nothing

sub DeleteSpecial(ID)
	dim sql,rs,PrevID,NextID
	'On Error Resume Next
	sql="select * From Nt_Special where ID="&ID
	set rs=server.CreateObject ("Adodb.recordset")
	rs.open sql,conn,1,3
	PrevID=rs("PrevID")
	NextID=rs("NextID")

	rs.delete
	rs.update
	rs.close
	
	'修改上一专题的NextID和下一专题的PrevID
	if PrevID>0 then
		conn.execute "Update Nt_Special set NextID=" & NextID & " where ID=" & PrevID
	end if
	if NextID>0 then
		conn.execute "Update Nt_Special set PrevID=" & PrevID & " where ID=" & NextID
	end if
	SuccessMsg="此专题已成功删除！"
	Behind.WriteSuccessMsg SuccessMsg,ComeUrl
end sub
%>